* Encoding: windows-1252.

title PRS survey, HEXACO Scales.
compute spcmiss=nmiss(pc1 to pc192)
freq var=spcmiss
sel if spcmiss le 10
do repeat j=pc1 to pc192
if missing(j) j=3
end repeat
do repeat j=pc1 to pc192 /k=
 Hsinc1 Efear1 Xexpr1 Aforg1 Corga1 Oaesa1 Hfair1 Eanxi1 XsocB1 Agent1
 Cdili1 Oinqu1 Hgree1 Edepe1 Xsoci1 Aflex1 Cperf1 Ocrea1 Hmode1 Esent1
 Xlive1 Apati1 Cprud1 Ounco1 Hsinc2 Efear2 Xexpr2 Aforg2 Corga2 Oaesa2
 Hfair2 Eanxi2 XsocB2 Agent2 Cdili2 Oinqu2 Hgree2 Edepe2 Xsoci2 Aflex2
 Cperf2 Ocrea2 Hmode2 Esent2 Xlive2 Apati2 Cprud2 Ounco2 Hsinc3 Efear3
 Xexpr3 Aforg3 Corga3 Oaesa3 Hfair3 Eanxi3 XsocB3 Agent3 Cdili3 Oinqu3
 Hgree3 Edepe3 Xsoci3 Aflex3 Cperf3 Ocrea3 Hmode3 Esent3 Xlive3 Apati3
 Cprud3 Ounco3 Hsinc4 Efear4 Xexpr4 Aforg4 Corga4 Oaesa4 Hfair4 Eanxi4
 XsocB4 Agent4 Cdili4 Oinqu4 Hgree4 Edepe4 Xsoci4 Aflex4 Cperf4 Ocrea4
 Hmode4 Esent4 Xlive4 Apati4 Cprud4 Ounco4 Hsinc5 Efear5 Xexpr5 Aforg5
 Corga5 Oaesa5 Hfair5 Eanxi5 XsocB5 Agent5 Cdili5 Oinqu5 Hgree5 Edepe5
 Xsoci5 Aflex5 Cperf5 Ocrea5 Hmode5 Esent5 Xlive5 Apati5 Cprud5 Ounco5
 Hsinc6 Efear6 Xexpr6 Aforg6 Corga6 Oaesa6 Hfair6 Eanxi6 XsocB6 Agent6
 Cdili6 Oinqu6 Hgree6 Edepe6 Xsoci6 Aflex6 Cperf6 Ocrea6 Hmode6 Esent6
 Xlive6 Apati6 Cprud6 Ounco6 Hsinc7 Efear7 Xexpr7 Aforg7 Corga7 Oaesa7
 Hfair7 Eanxi7 XsocB7 Agent7 Cdili7 Oinqu7 Hgree7 Edepe7 Xsoci7 Aflex7
 Cperf7 Ocrea7 Hmode7 Esent7 Xlive7 Apati7 Cprud7 Ounco7 Hsinc8 Efear8
 Xexpr8 Aforg8 Corga8 Oaesa8 Hfair8 Eanxi8 XsocB8 Agent8 Cdili8 Oinqu8
 Hgree8 Edepe8 Xsoci8 Aflex8 Cperf8 Ocrea8 Hmode8 Esent8 Xlive8 Apati8
 Cprud8 Ounco8
compute k=j
end repeat
*export outfile=hx /keep=id hsinc1 to ounco8

do repeat j=
 Hsinc1 Oaesa1 Hfair1 Aflex1 Ocrea1 Hmode1 Xlive1 Apati1 Hsinc2 Efear2
 Aforg2 XsocB2 Oinqu2 Xsoci2 Cperf2 Ocrea2 Apati2 Cprud2 Ounco2 Hsinc3
 Efear3 Oaesa3 Hfair3 Hgree3 Aflex3 Cprud3 Efear4 Xexpr4 Corga4 Hfair4
 Eanxi4 Agent4 Hgree4 Edepe4 Xsoci4 Aflex4 Hmode4 Esent4 Xlive4 Ounco4
 Hsinc5 Efear5 Xexpr5 Oaesa5 XsocB5 Cdili5 Hgree5 Cperf5 Hmode5 Xexpr6
 Corga6 Oaesa6 Eanxi6 Cdili6 Oinqu6 Hgree6 Edepe6 Aflex6 Cperf6 Hmode6
 Esent6 Apati6 Xexpr7 Aforg7 Corga7 Hfair7 Eanxi7 Cdili7 Hgree7 Xsoci7
 Aflex7 Hmode7 Esent7 Xlive7 Apati7 Cprud7 Hsinc8 Efear8 Aforg8 Corga8
 Hfair8 XsocB8 Agent8 Cdili8 Oinqu8 Hgree8 Edepe8 Aflex8 Ocrea8 Hmode8
 Xlive8 Cprud8 Ounco8
compute j=6-j
end repeat


compute Hsinc = mean( Hsinc1, Hsinc2, Hsinc3, Hsinc4, Hsinc5, Hsinc6,
  Hsinc7, Hsinc8).
compute Hfair = mean( Hfair1, Hfair2, Hfair3, Hfair4, Hfair5, Hfair6,
  Hfair7, Hfair8).
compute Hgree = mean( Hgree1, Hgree2, Hgree3, Hgree4, Hgree5, Hgree6,
  Hgree7, Hgree8).
compute Hmode = mean( Hmode1, Hmode2, Hmode3, Hmode4, Hmode5, Hmode6,
  Hmode7, Hmode8).

compute Efear = mean( Efear1, Efear2, Efear3, Efear4, Efear5, Efear6,
  Efear7, Efear8).
compute Eanxi = mean( Eanxi1, Eanxi2, Eanxi3, Eanxi4, Eanxi5, Eanxi6,
 Eanxi7, Eanxi8).
compute Edepe = mean( Edepe1, Edepe2, Edepe3, Edepe4, Edepe5, Edepe6,
 Edepe7, Edepe8).
compute Esent = mean( Esent1, Esent2, Esent3, Esent4, Esent5, Esent6,
 Esent7, Esent8).

compute Xexpr = mean( Xexpr1, Xexpr2, Xexpr3, Xexpr4, Xexpr5, Xexpr6,
  Xexpr7, Xexpr8).
compute XsocB = mean( XsocB1, XsocB2, XsocB3, XsocB4, XsocB5, XsocB6,
  XsocB7, XsocB8).
compute Xsoci = mean( Xsoci1, Xsoci2, Xsoci3, Xsoci4, Xsoci5, Xsoci6,
  Xsoci7, Xsoci8).
compute Xlive = mean( Xlive1, Xlive2, Xlive3, Xlive4, Xlive5, Xlive6,
 Xlive7, Xlive8).

compute Aforg = mean( Aforg1, Aforg2, Aforg3, Aforg4, Aforg5, Aforg6,
 Aforg7, Aforg8).
compute Agent = mean( Agent1, Agent2, Agent3, Agent4, Agent5, Agent6,
 Agent7, Agent8).
compute Aflex = mean( Aflex1, Aflex2, Aflex3, Aflex4, Aflex5, Aflex6,
 Aflex7, Aflex8).
compute Apati = mean( Apati1, Apati2, Apati3, Apati4, Apati5, Apati6,
 Apati7, Apati8).

compute Corga = mean( Corga1, Corga2, Corga3, Corga4, Corga5, Corga6,
 Corga7, Corga8).
compute Cdili = mean( Cdili1, Cdili2, Cdili3, Cdili4, Cdili5, Cdili6,
 Cdili7, Cdili8).
compute Cperf = mean( Cperf1, Cperf2, Cperf3, Cperf4, Cperf5, Cperf6,
 Cperf7, Cperf8).
compute Cprud = mean( Cprud1, Cprud2, Cprud3, Cprud4, Cprud5, Cprud6,
 Cprud7, Cprud8).

compute Oaesa = mean( Oaesa1, Oaesa2, Oaesa3, Oaesa4, Oaesa5, Oaesa6,
 Oaesa7, Oaesa8).
compute Oinqu = mean( Oinqu1, Oinqu2, Oinqu3, Oinqu4, Oinqu5, Oinqu6,
 Oinqu7, Oinqu8).
compute Ocrea = mean( Ocrea1, Ocrea2, Ocrea3, Ocrea4, Ocrea5, Ocrea6,
 Ocrea7, Ocrea8).
compute Ounco = mean( Ounco1, Ounco2, Ounco3, Ounco4, Ounco5,
 Ounco6, Ounco7, Ounco8).



Compute HONES = MEAN(Hsinc, Hfair, Hgree, Hmode).
Compute Emoti = MEAN(Efear, Eanxi, Edepe, Esent).
Compute Extra = MEAN(Xexpr, XsocB, Xsoci, Xlive).
Compute Agree = MEAN(Aforg, Agent, Aflex, Apati).
Compute Consc = MEAN(Corga, Cdili, Cperf, Cprud).
Compute Openn = MEAN(Oaesa, Oinqu, Ocrea, Ounco).
save outfile='hexaco.sys' /keep=id hsinc to openn

title PRS BIS scales.
compute prmiss=nmiss(pr1 to pr20)
freq var=prmiss
sel if prmiss lt 6
do repeat j=pr1 to pr20
if missing(j) j=2.5
end repeat
do repeat j=pr17,pr19
compute j=5-j
end repeat
compute bis=mean(pr11,pr8,pr14,pr1,pr5,
  pr17,pr19)
compute reward=mean(pr20,pr7,pr15,pr2,pr13)
compute drive=mean(pr3,pr6,pr18,pr10)
compute fun_seek=mean(pr16,pr9,pr12,pr4)





subtitle Reliability of Hexaco scales
reliability  var= Hsinc1, Hsinc2, Hsinc3, Hsinc4, Hsinc5, Hsinc6, Hsinc7, Hsinc8
  /scale(Hsinc)=all
statistic 5,8,9
reliability  var= Hfair1, Hfair2, Hfair3, Hfair4, Hfair5, Hfair6, Hfair7, Hfair8
  /scale(Hfair)=all
statistic 5,8,9
reliability  var= Hgree1, Hgree2, Hgree3, Hgree4, Hgree5, Hgree6, Hgree7, Hgree8
  /scale(Hgree)=all
statistic 5,8,9
reliability  var= Hmode1, Hmode2, Hmode3, Hmode4, Hmode5, Hmode6, Hmode7, Hmode8
  /scale(Hmode)=all
statistic 5,8,9

reliability  var= Efear1, Efear2, Efear3, Efear4, Efear5, Efear6, Efear7, Efear8
  /scale(Efear)=all
statistic 5,8,9
reliability  var= Eanxi1, Eanxi2, Eanxi3, Eanxi4, Eanxi5, Eanxi6, Eanxi7, Eanxi8
  /scale(Eanxi)=all
statistic 5,8,9
reliability  var= Edepe1, Edepe2, Edepe3, Edepe4, Edepe5, Edepe6, Edepe7, Edepe8
  /scale(Edepe)=all
statistic 5,8,9
reliability  var= Esent1, Esent2, Esent3, Esent4, Esent5, Esent6, Esent7, Esent8
  /scale(Esent)=all
statistic 5,8,9

reliability  var= Xexpr1, Xexpr2, Xexpr3, Xexpr4, Xexpr5, Xexpr6, Xexpr7, Xexpr8
  /scale(Xexpr)=all
statistic 5,8,9
reliability  var= XsocB1, XsocB2, XsocB3, XsocB4, XsocB5, XsocB6, XsocB7, XsocB8
  /scale(XsocB)=all
statistic 5,8,9
reliability  var= Xsoci1, Xsoci2, Xsoci3, Xsoci4, Xsoci5, Xsoci6, Xsoci7, Xsoci8
  /scale(Xsoci)=all
statistic 5,8,9
reliability  var= Xlive1, Xlive2, Xlive3, Xlive4, Xlive5, Xlive6, Xlive7, Xlive8
  /scale(Xlive)=all
statistic 5,8,9

reliability  var= Aforg1, Aforg2, Aforg3, Aforg4, Aforg5, Aforg6, Aforg7, Aforg8
  /scale(Aforg)=all
statistic 5,8,9
reliability  var= Agent1, Agent2, Agent3, Agent4, Agent5, Agent6, Agent7, Agent8
  /scale(Agent)=all
statistic 5,8,9
reliability  var= Aflex1, Aflex2, Aflex3, Aflex4, Aflex5, Aflex6, Aflex7, Aflex8
  /scale(Aflex)=all
statistic 5,8,9
reliability  var= Apati1, Apati2, Apati3, Apati4, Apati5, Apati6, Apati7, Apati8
  /scale(Apati)=all
statistic 5,8,9

reliability  var= Corga1, Corga2, Corga3, Corga4, Corga5, Corga6, Corga7, Corga8
  /scale(Corga)=all
statistic 5,8,9
reliability  var= Cdili1, Cdili2, Cdili3, Cdili4, Cdili5, Cdili6, Cdili7, Cdili8
  /scale(Cdili)=all
statistic 5,8,9
reliability  var= Cperf1, Cperf2, Cperf3, Cperf4, Cperf5, Cperf6, Cperf7, Cperf8
  /scale(Cperf)=all
statistic 5,8,9
reliability  var= Cprud1, Cprud2, Cprud3, Cprud4, Cprud5, Cprud6, Cprud7, Cprud8
  /scale(Cprud)=all
statistic 5,8,9

reliability  var= Oaesa1, Oaesa2, Oaesa3, Oaesa4, Oaesa5, Oaesa6, Oaesa7, Oaesa8
  /scale(Oaesa)=all
statistic 5,8,9
reliability  var= Oinqu1, Oinqu2, Oinqu3, Oinqu4, Oinqu5, Oinqu6, Oinqu7, Oinqu8
  /scale(Oinqu)=all
statistic 5,8,9
reliability  var= Ocrea1, Ocrea2, Ocrea3, Ocrea4, Ocrea5, Ocrea6, Ocrea7, Ocrea8
  /scale(Ocrea)=all
statistic 5,8,9
reliability  var= Ounco1, Ounco2, Ounco3, Ounco4, Ounco5, Ounco6, Ounco7, Ounco8
  /scale(Ounco)=all
statistic 5,8,9

Reliability  VAR=Hsinc, Hfair, Hgree, Hmode
  /scale(HONES)=all
statistic 5,8,9
Reliability  VAR=Efear, Eanxi, Edepe, Esent
  /scale(Emoti)=all
statistic 5,8,9
Reliability  VAR=Xexpr, XsocB, Xsoci, Xlive
  /scale(Extra)=all
statistic 5,8,9
Reliability  VAR=Aforg, Agent, Aflex, Apati
  /scale(Agree)=all
statistic 5,8,9
Reliability  VAR=Corga, Cdili, Cperf, Cprud
  /scale(Consc)=all
statistic 5,8,9
Reliability  VAR=Oaesa, Oinqu, Ocrea, Ounco
  /scale(Openn)=all
statistic 5,8,9
fin

